/ Erect Magazine 4 / Erect Magazine 4.iso / mac / PhotoBr4 / PhotoBr4.rsrc / VWFI_1024

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 10 00 f2 5a 7c | 00 00 00 08 00 00 00 00 |......Z||........|
|00000010| 00 07 00 00 00 00 00 00 | 02 f5 00 00 03 19 00 00 |........|........|
|00000020| 03 3d 00 00 03 3d 00 00 | 03 3f 00 00 03 3f 00 00 |.=...=..|.?...?..|
|00000030| 03 3f 6f 6e 20 53 74 61 | 72 74 4d 6f 76 69 65 0d |.?on Sta|rtMovie.|
|00000040| 20 20 20 20 47 6c 6f 62 | 61 6c 20 43 6f 6e 66 69 |    Glob|al Confi|
|00000050| 67 5f 47 0d 20 20 20 20 | 2d 2d 70 75 74 20 22 30 |g_G.    |--put "0|
|00000060| 2c 30 2c 35 22 20 69 6e | 74 6f 20 43 6f 6e 66 69 |,0,5" in|to Confi|
|00000070| 67 5f 47 0d 65 6e 64 0d | 2d 2d 0d 6f 6e 20 52 65 |g_G.end.|--.on Re|
|00000080| 61 64 50 69 63 74 0d 20 | 20 20 20 47 6c 6f 62 61 |adPict. |   Globa|
|00000090| 6c 20 50 68 6f 74 6f 4e | 6f 5f 47 0d 20 20 20 20 |l PhotoN|o_G.    |
|000000a0| 70 75 74 20 70 61 74 68 | 4e 61 6d 65 28 29 20 26 |put path|Name() &|
|000000b0| 20 22 50 48 4f 54 4f 3a | 50 49 43 54 3a 4f 53 49 | "PHOTO:|PICT:OSI|
|000000c0| 52 49 3a 50 48 4f 54 4f | 5f 22 20 26 20 50 68 6f |RI:PHOTO|_" & Pho|
|000000d0| 74 6f 4e 6f 5f 47 20 26 | 20 22 2e 50 49 43 22 20 |toNo_G &| ".PIC" |
|000000e0| 69 6e 74 6f 20 66 4e 61 | 6d 65 0d 20 20 20 20 70 |into fNa|me.    p|
|000000f0| 75 74 20 46 69 6c 65 49 | 4f 28 6d 4e 65 77 2c 20 |ut FileI|O(mNew, |
|00000100| 22 72 65 61 64 22 2c 66 | 4e 61 6d 65 29 20 69 6e |"read",f|Name) in|
|00000110| 74 6f 20 6d 79 50 0d 20 | 20 20 20 69 66 20 6f 62 |to myP. |   if ob|
|00000120| 6a 65 63 74 50 28 6d 79 | 50 29 20 74 68 65 6e 0d |jectP(my|P) then.|
|00000130| 20 20 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |        |set the |
|00000140| 70 69 63 74 75 72 65 20 | 6f 66 20 63 61 73 74 20 |picture |of cast |
|00000150| 22 50 69 63 74 43 61 73 | 74 22 20 3d 20 6d 79 50 |"PictCas|t" = myP|
|00000160| 28 6d 52 65 61 64 50 49 | 43 54 29 0d 20 20 20 20 |(mReadPI|CT).    |
|00000170| 20 20 20 20 6d 79 50 28 | 6d 44 69 73 70 6f 73 65 |    myP(|mDispose|
|00000180| 29 0d 20 20 20 20 65 6c | 73 65 0d 20 20 20 20 20 |).    el|se.     |
|00000190| 20 20 20 62 65 65 70 20 | 31 0d 20 20 20 20 65 6e |   beep |1.    en|
|000001a0| 64 20 69 66 20 0d 65 6e | 64 0d 2d 2d 0d 6f 6e 20 |d if .en|d.--.on |
|000001b0| 52 65 61 64 43 61 73 74 | 0d 20 20 20 20 73 65 74 |ReadCast|.    set|
|000001c0| 20 74 68 65 20 63 61 73 | 74 4e 75 6d 20 6f 66 20 | the cas|tNum of |
|000001d0| 73 70 72 69 74 65 20 31 | 20 3d 20 74 68 65 20 6e |sprite 1| = the n|
|000001e0| 75 6d 62 65 72 20 6f 66 | 20 63 61 73 74 20 22 42 |umber of| cast "B|
|000001f0| 6c 61 63 6b 42 6f 61 64 | 22 0d 20 20 20 20 75 70 |lackBoad|".    up|
|00000200| 64 61 74 65 73 74 61 67 | 65 0d 20 20 20 20 2d 2d |datestag|e.    --|
|00000210| 0d 20 20 20 20 47 6c 6f | 62 61 6c 20 50 68 6f 74 |.    Glo|bal Phot|
|00000220| 6f 4e 6f 5f 47 2c 50 68 | 6f 74 6f 5f 47 0d 20 20 |oNo_G,Ph|oto_G.  |
|00000230| 20 20 70 75 74 20 22 50 | 68 6f 74 6f 50 61 6c 22 |  put "P|hotoPal"|
|00000240| 26 50 68 6f 74 6f 4e 6f | 5f 47 20 69 6e 74 6f 20 |&PhotoNo|_G into |
|00000250| 50 61 6c 5f 57 0d 20 20 | 20 20 70 75 70 70 65 74 |Pal_W.  |  puppet|
|00000260| 50 61 6c 65 74 74 65 20 | 50 61 6c 5f 57 2c 36 30 |Palette |Pal_W,60|
|00000270| 0d 20 20 20 20 75 70 64 | 61 74 65 73 74 61 67 65 |.    upd|atestage|
|00000280| 0d 20 20 20 20 2d 2d 0d | 20 20 20 20 70 75 74 20 |.    --.|    put |
|00000290| 50 68 6f 74 6f 4e 6f 5f | 47 2b 31 32 38 20 69 6e |PhotoNo_|G+128 in|
|000002a0| 74 6f 20 50 68 6f 74 6f | 5f 57 0d 20 20 20 20 70 |to Photo|_W.    p|
|000002b0| 75 74 20 74 68 65 20 6e | 61 6d 65 20 6f 66 20 63 |ut the n|ame of c|
|000002c0| 61 73 74 20 50 68 6f 74 | 6f 5f 57 20 69 6e 74 6f |ast Phot|o_W into|
|000002d0| 20 6e 61 6d 65 5f 57 0d | 20 20 20 20 73 65 74 20 | name_W.|    set |
|000002e0| 74 68 65 20 63 61 73 74 | 4e 75 6d 20 6f 66 20 73 |the cast|Num of s|
|000002f0| 70 72 69 74 65 20 31 20 | 3d 20 74 68 65 20 6e 75 |prite 1 |= the nu|
|00000300| 6d 62 65 72 20 6f 66 20 | 63 61 73 74 20 6e 61 6d |mber of |cast nam|
|00000310| 65 5f 57 0d 20 20 20 20 | 75 70 64 61 74 65 73 74 |e_W.    |updatest|
|00000320| 61 67 65 0d 65 6e 64 23 | 51 75 61 64 72 61 39 35 |age.end#|Quadra95|
|00000330| 30 20 2d 20 54 6f 74 61 | 6c 20 4d 65 64 69 61 20 |0 - Tota|l Media |
|00000340| 41 67 65 6e 63 79 2c 49 | 6e 63 2e 23 51 75 61 64 |Agency,I|nc.#Quad|
|00000350| 72 61 39 35 30 20 2d 20 | 54 6f 74 61 6c 20 4d 65 |ra950 - |Total Me|
|00000360| 64 69 61 20 41 67 65 6e | 63 79 2c 49 6e 63 2e 00 |dia Agen|cy,Inc..|
|00000370| 00                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+